=head1 TclString

Overrides to the TclStringPMC PMC

=cut

.HLL 'parrot'
.namespace [ 'TclString' ]

=head2 class_init

Create the class..

=cut

.sub class_init :anon :load
    .prof('parrot;TclString;class_init')

    $P0 = get_class 'TclStringPMC'
    $P1 = subclass $P0, 'TclString'
.end

# Map this class in our public and private HLLs

.HLL 'tcl'
.sub 'hll_map' :anon :load
    .prof('tcl;hll_map')

    .local pmc interp
    interp = getinterp
    .local pmc core,tcl
    core = get_class 'String'
    tcl = get_class 'TclString'
    interp.'hll_map'(core,tcl)
.end

.HLL '_tcl'
.sub hll_map :anon :load
    .prof('tcl;hll_map')

    .local pmc interp
    interp = getinterp
    .local pmc core,tcl
    core = get_class 'String'
    tcl = get_class 'TclString'
    interp.'hll_map'(core,tcl)
.end

# Local Variables:
#   mode: pir
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
